home *** CD-ROM | disk | FTP | other *** search
- /*
- Configuration for AWebFTP AREXX plugin for AWeb-II
- by Gabiele Favrin (gfavrin@mbox.vol.it)
- Version 1.0 - 30/06/1996 by AmiTrix Development (support@amitrix.com)
- */
-
- /* Main Script */
- fname = 'T:config.html'
- save_dir = 'ram:'
- AmiFTPexe = ''
-
- options results
- if ~show('L','rexxsupport.library') then
- if ~addlib('rexxsupport.library',0,-30,0) then
- exit(20)
-
- parse arg arguements
- parse source prog_type result_flag called resolved ext host .
-
- last_slash = lastpos('/',called)
- last_colon = lastpos(':',called)
-
- dir_pos = max(last_slash,last_colon)
- if dir_pos > 0 then
- current_dir = left(called,dir_pos)
- else
- current_dir = ''
-
- Address Value host
-
-
- if Open(config_fp,current_dir||"AWebFTP.config",r) then
- do
- save_dir = readln(config_fp)
- AmiFTPexe = readln(config_fp)
- call close(config_fp)
- end
-
- if arguements = '' then
- if open(HTML_fp,fname,w) then
- do
- call writeln(HTML_fp,'<html><head><title>')
- call writeln(HTML_fp,addr)
- call writeln(HTML_fp,'</title></head><body><h1>AWebFTP Configuration</h1>')
- call writeln(HTML_fp,'<form action="x-aweb:rexx/'||called||'">')
- call writeln(HTML_fp,'<pre>*Default Save Directory:'left(' ',4)'<input size=60 maxlength=255 name="save_dir" value="'save_dir'"><br>')
- call writeln(HTML_fp,' AmiFTP Executable Path:'left(' ',4)'<input size=60 maxlength=255 name="AmiFTPexe" value="'AmiFTPexe'"><br>')
- call writeln(HTML_fp,'* Required Parameters')
- call writech(HTML_fp,'<hr>AWebFTP by Josef Faulkner (panther@gate.net) IRC: Josef')
- call writeln(HTML_fp,left(' ',17)'<input type="submit" value=" Save "></form>')
- call writeln(HTML_fp,'</body></html>')
- call close(HTML_fp)
- 'OPEN file://localhost/'fname 'RELOAD'
- end
- else
- address command 'RequestChoice "AWebFTP Config" "Error" "Ok" >NIL:'
- else
- do
-
- interpret translate(strip(arguements),';',' ')
-
- if Open(save_config_fp,current_dir||"AWebFTP.config",w) then
- do
- call writeln(save_config_fp,translate(save_dir,,';'))
- call writeln(save_config_fp,translate(AmiFTPexe,,';'))
- call close(save_config_fp)
- end
-
- address command 'DELETE' fname
- end
-
- exit
-